home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / MEDIACHA.M < prev    next >
Encoding:
Text File  |  1990-02-02  |  680 b   |  24 lines
  1. MODULE MediaChange;
  2.  
  3. IMPORT MOSGlobals, Files, Directory;
  4. FROM InOut IMPORT WriteString, WriteLn, Read;
  5.  
  6. VAR error: INTEGER;
  7.     drive: Directory.Drive;
  8.     ch: CHAR;
  9.     driveStr: MOSGlobals.DriveStr;
  10.     text: ARRAY [0..99] OF CHAR;
  11.  
  12. TYPE CHARSET = SET OF CHAR;
  13.  
  14. BEGIN
  15.   WriteString ("Forced Media Change"); WriteLn;
  16.   WriteString ("Geschrieben von Laurenz Prüssner & Thomas Tempelmann");
  17.   WriteLn; WriteString ("Laufwerk (A-P) oder Default-LW (Leertaste) ?");
  18.   REPEAT Read (ch); UNTIL CAP (ch) IN CHARSET {'A'..'P'};
  19.   WriteLn;
  20.   driveStr [0]:= ch;
  21.   driveStr [1]:= ':';
  22.   Directory.ForceMediaChange (Directory.StrToDrive (driveStr));
  23. END MediaChange.
  24.